DR1='n:'
F1='DRUGS'
F11='DRUGNM'
F12='DRUGEN'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   PACK
   DO SIGNI
   INDE ON DRUG_CODE TO &DR1&F1
   DO SIGNI
   INDE ON DRUG_NAME TO &DR1&F11
   DO SIGNI
   INDE ON GENERIC   TO &DR1&F12
ENDIF
USE
F1='DISPOS'
F11='DISPNM'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   PACK
   DO SIGNI
   INDE ON DISP_CODE TO &DR1&F1
   DO SIGNI
   INDE ON DISP_NAME TO &DR1&F11
ENDIF
USE
